home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / examples / talk2boopsi.d < prev    next >
Encoding:
Text File  |  2000-02-01  |  1.2 KB  |  56 lines
  1. // Talk2Boopsi.d - free translation of Talk2Boopsi.e
  2. // Talk2Boopsi.e - free translation of Talk2Boopsi.c from RKRM libraries
  3.  
  4. MODULE    'intuition/intuition',
  5.             'intuition/gadgetclass',
  6.             'intuition/icclass',
  7.             'utility/tagitem'
  8.  
  9. PROC main()
  10.     DEF    w:PTR TO Window,
  11.             prop:PTR TO Gadget,
  12.             integer:PTR TO Gadget
  13.  
  14.     IF w:=OpenWindowTags(NIL,
  15.             WA_Flags,$E,
  16.             WA_IDCMP,$200,
  17.             WA_Width,120,
  18.             WA_Height,150,
  19.             TAG_END)
  20.         IF prop:=NewObject(NIL,'propgclass',
  21.                 GA_ID,1,
  22.                 GA_Top,w.BorderTop+5,
  23.                 GA_Left,w.BorderLeft+5,
  24.                 GA_Width,10,
  25.                 GA_Height,80,
  26.                 ICA_Map,[PGA_Top,STRINGA_LongVal,0],
  27.                 PGA_Total,100,
  28.                 PGA_Top,25,
  29.                 PGA_Visible,10,
  30.                 PGA_NewLook,TRUE,
  31.                 TAG_END)
  32.             IF integer:=NewObject(NIL,'strgclass',
  33.                     GA_ID,2,
  34.                     GA_Top,w.BorderTop+5,
  35.                     GA_Left,w.BorderLeft+30,
  36.                     GA_Width,40,
  37.                     GA_Height,18,
  38.                     ICA_Map,[STRINGA_LongVal,PGA_Top,0],
  39.                     ICA_Target,prop,
  40.                     GA_Previous,prop,
  41.                     STRINGA_LongVal,25,
  42.                     STRINGA_MaxChars,3,
  43.                     TAG_END)
  44.                 SetGadgetAttrsA(prop,w,NIL,[ICA_Target,integer,TAG_END])
  45.                 AddGList(w,prop,-1,-1,NIL)
  46.                 RefreshGList(prop,w,NIL,-1)
  47.                 WaitPort(w.UserPort)
  48.                 RemoveGList(w,prop,-1)
  49.                 DisposeObject(integer)
  50.             ENDIF
  51.             DisposeObject(prop)
  52.         ENDIF
  53.         CloseWindow(w)
  54.     ENDIF
  55. ENDPROC
  56.